﻿Imports OMANE.Common.UI

Public Class BaseTabSection
    Implements IViewModelTabSection


    Public Property Icone As String Implements IViewModelTabSection.Icone

    Public Property Title As String Implements IViewModelTabSection.Title

    Public Property IsClosable As Boolean Implements IViewModelTabSection.IsClosable
End Class

Public Class DashboardZonePropertyThicknessConverter
    Implements Windows.Data.IValueConverter

    Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As Globalization.CultureInfo) As Object Implements Windows.Data.IValueConverter.Convert
        Dim th = CType(CType(value, DashboardZoneProperty).Value, Windows.Thickness)

        If parameter = "All" Then
            Return th.Left
        End If

        Return 0.0
    End Function

    Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As Globalization.CultureInfo) As Object Implements Windows.Data.IValueConverter.ConvertBack

        'Dim prop = CType(value, DashboardZoneProperty)

        'Return New Windows.Thickness()

    End Function
End Class